Primjer korištenja "OnBeforePrint" događaja

Primjer korištenja "OnBeforePrint" događaja

Da bismo demonstrirali ovaj događaj, kreirajte izvještaj koji predstavlja popis klijenata. Ovaj izvještaj će uključivati samo one tvrtke čije ime počinje slovom "A".

Kreirajmo novi projekt, stavite "TfrxDlDBTable" komponentu na obrazac i postavite ove atribute:

KorisničkoIme = 'Predmeti'

Otvorite dizajner izvještaja i kreirajte izvještaj poput ovog:

Odaberite podatkovnu traku i prebacite se na karticu “Događaji” u inspektoru objekata:

Da biste kreirali "OnBeforePrint" handler (koji je najprikladniji za nas), dvokliknite na prazno polje desno od imena događaja:

To dodaje prazni handler u skriptu i dizajner se prebacuje na karticu “Kod”.

Sve što je sada potrebno je upisati sljedeći kod u tijelo handlera:

if  Kopiraj(<Predmeti."acSubject">, 1, 1) = 'A' then

  MasterData1.Visible := True

else

  MasterData1.Visible := False;

Pokrenite izvještaj i provjerite da li skripta ispravno radi:

Objasnimo nekoliko stvari. Jedan handler može biti dodijeljen događajima više od jednog objekta - parametar “Sender” pokazuje koji objekt je inicirao događaj. Da biste dodijelili postojeći handler događaju, ili ga upišite izravno u inspektor objekata, ili ga odaberite s padajuće liste:

Veza na handler može se lako izbrisati - odaberite dodijeljeni handler u inspektoru objekata i pritisnite tipku “Izbriši”.

Ako je handler događaja izbrisan, kod i dalje ostaje u izvještaju, ali se ne koristi. Samo handler događaja ostaje, također se ne izvršava nikakav kod i ne javlja se greška.